Imports Microsoft.VisualBasic

Friend MustInherit Class SendMailObject_Base
    Protected msEmailServer As String

    Public Sub New(ByVal sEmailServer As String)
        msEmailServer = sEmailServer
    End Sub

    Public MustOverride Function SendMessage( _
    ByVal oMessage As Message) As String
End Class